home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / MODEL.ICN < prev    next >
Text File  |  1990-03-28  |  2KB  |  39 lines
  1. procedure main()
  2.    write(image(t := table()) | "failed")
  3.    write(image(every i := 1 to 20 do t[i] := i) | "failed")
  4.    write(image(?t) | "failed")
  5.    write(image(?t) | "failed")
  6.    write(image(?t) | "failed")
  7.    write(image(?t) | "failed")
  8.    write(image(?t) | "failed")
  9.    write(image(?t) | "failed")
  10.    write(image(?t) | "failed")
  11.    write(image(?t) | "failed")
  12.    write(image(?t) | "failed")
  13.    write(image(?t) | "failed")
  14.    write(image(t := table()) | "failed")
  15.    write(image(every t[c := !(12345678 || &lcase)] := c) | "failed")
  16.    write(image(every write(!t)) | "failed")
  17.    write(image(set([1,0,1,0,1,0,1,0])) | "failed")
  18.    write(image(set([])) | "failed")
  19.    write(image(s := set([1,2,3,4,5,6,7,8,9,10])) | "failed")
  20.    write(image(?s) | "failed")
  21.    write(image(?s) | "failed")
  22.    write(image(every write(!s)) | "failed")
  23.    write(image(s := set([])) | "failed")
  24.    write(image(every insert(s,1 to 20)) | "failed")
  25.    write(image(every write(!s)) | "failed")
  26.    write(image(every delete(s,15 to 30)) | "failed")
  27.    write(image(every write(!s)) | "failed")
  28.    write(image(every s1 := insert(set([]),!&lcase)) | "failed")
  29.    write(image(s2 := set(["a","aa","ab","b",1,2,3,4])) | "failed")
  30.    write(image(s3 := s1 ++ s2) | "failed")
  31.    write(image(s4 := s1 ** s2) | "failed")
  32.    write(image(s5 := s1 -- s2) | "failed")
  33.    write(image(*s3) | "failed")
  34.    write(image(every write(!s3)) | "failed")
  35.    write(image(*s4) | "failed")
  36.    write(image(every write(!s4)) | "failed")
  37.    write(image(every write(!s5)) | "failed")
  38. end
  39.